home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh41.d64 / listing 5 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  776b  |  33 lines
  1. 100 REM BEISPIEL FUER EINE KLEINE
  2. 101 REM DIRECTORY-MANIPULATION:
  3. 102 REM SCRATCH-SCHUTZ EINZELNER FILES
  4. 103 REM NACH ANZEIGE DES FILENAMENS:
  5. 104 REM J = SCHUETZE DIES FILE
  6. 105 REM N = WEITER ZUM NAECHSTEN FILE
  7. 106 REM E = ENDE
  8. 107 REM ACHTUNG !!! "SCHUETZT" AUCH
  9. 108 REM SCHON GESCRATCHTE FILES WENN
  10. 109 REM VERLANGT, STELLT SIE ABER NICHT
  11. 110 REM WIEDER HER !!!
  12. 111 REM SCRATCH-SCHUTZ WIRD IM DIRECT.
  13. 112 REM DURCH EIN '<' HINTER DEM
  14. 113 REM FILETYP ANGEZEIGT. NAEHERES
  15. 114 REM SIEHE TABELLE FOLGE 1 !!!
  16. 115 REM ACHTUNG !!! NUR ZUSAMMEN MIT
  17. 116 REM DEN UNTERPROGRAMMEN 1 & 2
  18. 117 REM LAUFFAEHIG !!!
  19. 118 :
  20. 119 :
  21. 120 MM=0
  22. 130 MM=MM+1:DD$="":GOSUB1000
  23. 140 IF DD$=NN$THENEND
  24. 150 PRINTMID$(DD$,4,16):INPUTAA$
  25. 160 IF AA$="E"THEN END
  26. 170 IF AA$="N"THEN 130
  27. 180 HH$=LEFT$(DD$,1)
  28. 190 HH$=CHR$(ASC(HH$)OR2^6)
  29. 200 DD$=HH$+RIGHT$(DD$,29)
  30. 210 GOSUB2000
  31. 220 GOTO 130
  32. 230 END
  33.